Top 10k strings from Start to Program (1984)(St. Michael)(Tape 1 of 2 Side B).tzx
in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
3 z$=w$+"wheelbase too long.": 3 z$=w$+"car would be too tall.": 3 user program 3 read user program vars 3 introduction screens 3 highlight user variable 3 change user variable 3 ;s$;s$;s$;s$; 2 z$=w$+"wheelbase too short.": 2 z$=w$+"passengers need room.": 2 z$=w$+"passengers need room": 2 z$=w$+"no room for wheel arch.": 2 z$=w$+"car would be too long.": 2 p$="tunes" 2 OOOOOOOOOOOOOOOOOO 2 ;"To go to the next: press "; 2 ;" ";: 1 z$=z$+m$(1 1 z$=z$+k$(1 1 unpack string get first 1 u(i)=t(i): 1 tunes l 1 tunes 1 taunt the user 1 taunt for user 1 t(i)=u(i): 1 screen 1 s$=" " 1 runcode 1 run T 1 riff frills 1 put up intro screens 1 program menu 1 p$=p$+n$(mq,i) 1 n$(i),f$(i),o$(i): 1 main program 1 main 1 loading screen 1 listing subroutine 1 list other subs 1 k$=k$+",": 1 intro screen if any 1 input positive number 1 input one item in line 1 initialise 1 highlight next var 1 g$=f$(mq): 1 editor/run menu 1 editor subroutine 1 charset & colour subs 1 car l 1 car 1 boxes blotch jingle tunes car 1 `xxxXXXhhhPPP 1 `xxxXXXhhh 1 XXXhhhPPPpppHHH```xxxXXXhhhPPPppGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG 1 To return to Choices:press 1 To go to next page: press 1 STOP THE TAPE 1 OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 1 JINGLE CHOICESd 1 INTRODUCTION TO TUNES 1 INTRODUCTION TO CAR 1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGJ 1 Do you want to go back and try? press 1 Created with Ramsoft MakeTZX 1 CHANGING TUNES 1 CHANGING CAR 1 BASIC WORDS USED IN TUNES 1 BASIC WORDS USED IN CAR 1 ;s$;s$;s$;s$;: 1 ;"warning: "; 1 ;"then rewind it.": 1 ;"Warning:"'"60 is the highest pitch. ";: 1 ;"Warning:"'"5 seconds is the longest note.";: 1 ;"Warning:"'"-60 is the lowest pitch. ";: 1 ;"Warning: line cannot be any"'"longer, enter now or delete some";: 1 ;"Type in the new value: ";: 1 ;"Turn over tape,"; 1 ;"To run program: press 1 ;"To pick this program:press "; 1 ;"To move to the next: "; 1 ;"To make a change: "; 1 ;"To choose this one: press "; 1 ;"To change this one: "; 1 ;"Then press 1 ;"Start the tape and press 1 ;"Rewind tape." 1 ;"Press any key to move on! 1 ;"Page ";pg: 1 ;"LIST ";: 1 ;"For CHOICES screen: "; 1 ;"Enter the data for the line:"; 1 ;"Carry on,"'"need a pitch for the last note";: 1 ;"CHOOSE A PROGRAM"; 1 ;" DATA ";: 1 ;" Choose another program "; 1 ;" to go on 1 190 32 25 50 25 120 14 1 12121212,0,12121212,0 .2,4 .2,7 .2,12 .2,7,.2,4 .8,0 1 ------------------------- 1 ,".8,0",.2 1 ,".2,7,.2,4",.8 1 ,".2,7",.2 1 ,".2,4",.2 1 ,".2,12",.2 1 ,".2,0",.2 1 +"THE DELIBERATE BUG!" 1 +"SHORT PASSENGER COMPARTMENTS" 1 +"HINT: THE WINDOWS FOR"+ 1 +"COPY THIS TUNE." 1 +"BET YOU DIDN'T FIND"+ 1 +"BET YOU CAN'T"+ 1 );" See and change ";p$; 1 );" Run ";p$; 1 );" Introduction to ";p$; 1 (m$+z$)=13 1 (learn to draw a box anywhere)(splash colour over the telly) (a catchy little number) (compose musical masterpieces) (design your own car) 1 (k$+m$+z$)=13 1 '"You will not see the listings": 1 '"Within these subroutines, you": 1 '"When you change this program,": 1 '"We also use an IF...THEN test in": 1 '"This program which helps you to": 1 '"This is the first program which": 1 '"This program shows you how to": 1 '"The program allows you to change": 1 "zeros in any line before 130." 1 "you will be asked for whole": 1 "words you have already used, as": 1 "words are explained in Chapter 6": 1 "will halt earlier if you insert": 1 "will find the PLOT and DRAW": 1 "well as CIRCLE, which is": 1 "uses GO SUB, a word you will": 1 "use the keyword LIST, followed": 1 "tunes"," TUNES CHOICES","(compose musical masterpieces)" 1 "to stop at the end of the DATA." 1 "the start of the program." 1 "the book.": 1 "the tune data, therefore you": 1 "the BEEP. Instead of putting": 1 "subroutines, but you can change": 1 "subroutine you wish to examine.": 1 "playing facilities. Refer to": 1 "part of the car is called by GO": 1 "pair of zeros mark the end of": 1 "of the Spectrum manual.": 1 "numbers after BEEP, we will use": 1 "lines of data. You can put up to": 1 "line 30. This tells the program": 1 "l","a","b","c","d","e","r" 1 "jingle","JINGLE CHOICES"," (a catchy little number) " 1 "for 4 notes. You must always put": 1 "for the subroutines unless you": 1 "find explained on page 52. Each": 1 "explained in Chapter 5." 1 "display when you run the program": 1 "develop the Spectrum's tune": 1 "details given in Chapter 5 of": 1 "design a car is based upon the": 1 "car"," CAR CHOICES"," (design your own car) " 1 "cannot change the last line": 1 "by the line number of the": 1 "boxes"," BOXES CHOICES","(learn to draw a box anywhere)" 1 "both the time and the pitch of": 1 "blotch","BLOTCH CHOICES","(splash colour over the telly)" 1 "are simply for visual effect." 1 "all of the variables given at": 1 "a comma between the numbers. A": 1 "You cannot change the": 1 "The coloured squares which": 1 "SUB statements.": 1 "DATA and READ statements. These": 1 "Chapter 3 for more information.": 1 "8 numbers on each line - enough": 1 "(line 130): However, the tune": 1 press any key "; 1 for other subroutines,"'"or press any other key to go on."; 1 Triptych Publishing Ltd. 1984 1 BOXES CHOICESBLOTCH CHOICESJINGLE CHOICES TUNES CHOICES CAR CHOICES 1 130 DATA 0,0 1 120 DATA 1 110 DATA 1 100 DATA 1 90 DATA 1 80 GO SUB 4000: REM and wheels 1 80 DATA 1 70 GO SUB 3000: REM windows, 1 70 DATA 1 60 REM the data 1 60 GO SUB 2000: REM underside, 1 50 GO TO 20 1 50 GO SUB 1000: REM draw body, 1 40 LET e= 1 40 BEEP d,p 1 30 LET c= 1 30 IF d=0 THEN STOP 1 20 READ d,p 1 20 LET a= 1 10 REM the program 1 10 LET l= 1 press any key to speed up 1 press any key to speed up ";s$; 1 y 1 p 1 j 1 e 1 y 1